<?xml version="1.0" encoding="UTF-8"?>
<!-- Copyright 2007 XBRL International. All Rights Reserved. -->
<link:linkbase
  xmlns:xlink="http://www.w3.org/1999/xlink"
  xmlns:link="http://www.xbrl.org/2003/linkbase"
  xmlns:generic="http://xbrl.org/2008/generic"
  xmlns:validation="http://xbrl.org/2008/validation"  
  xmlns:ca="http://xbrl.org/2008/assertion/consistency"
  xmlns:variable="http://xbrl.org/2008/variable"
  xmlns:formula="http://xbrl.org/2008/formula"
  xmlns:uf="http://xbrl.org/2008/filter/unit"
  xmlns:cf="http://xbrl.org/2008/filter/concept"
  xmlns:pf="http://xbrl.org/2008/filter/period"
  xmlns:df="http://xbrl.org/2008/filter/dimension"
  xmlns:label="http://xbrl.org/2008/label"
  xmlns:xfi="http://www.xbrl.org/2008/function/instance" 
  xmlns:v="http://xbrl.org/2008/formula/conformance/variable"  
  xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xmlns:xbrli="http://www.xbrl.org/2003/instance"  
  xmlns:concept="http://xbrl.org/formula/conformance/example"
  xmlns:dim="http://xbrl.org/formula/conformance/example/dimensions"
  xsi:schemaLocation="
  http://www.xbrl.org/2003/linkbase http://www.xbrl.org/2003/xbrl-linkbase-2003-12-31.xsd
  http://xbrl.org/2008/generic ../../core_schemas/generic-link.xsd
  http://xbrl.org/2008/assertion/consistency ../../core_schemas/consistency-assertion.xsd
  http://xbrl.org/2008/validation ../../core_schemas/validation.xsd
  http://xbrl.org/2008/formula ../../core_schemas/formula.xsd
  http://xbrl.org/2008/variable ../../core_schemas/variable.xsd
  http://xbrl.org/2008/filter/unit ../../core_schemas/unit-filter.xsd
  http://xbrl.org/2008/filter/concept ../../core_schemas/concept-filter.xsd
  http://xbrl.org/2008/filter/period ../../core_schemas/period-filter.xsd
  http://xbrl.org/2008/filter/dimension ../../core_schemas/dimension-filter.xsd
  http://xbrl.org/2008/label ../../core_schemas/generic-label.xsd
  http://www.xbrl.org/2003/instance http://www.xbrl.org/2003/xbrl-instance-2003-12-31.xsd  
  ">
  
  <link:arcroleRef arcroleURI="http://xbrl.org/arcrole/2008/variable-set" xlink:href="../../core_schemas/variable.xsd#variable-set" xlink:type="simple"/>
  <link:arcroleRef arcroleURI="http://xbrl.org/arcrole/2008/variable-filter" xlink:href="../../core_schemas/variable.xsd#variable-filter" xlink:type="simple"/>
  <link:arcroleRef arcroleURI="http://xbrl.org/arcrole/2008/consistency-assertion-formula" xlink:href="../../core_schemas/consistency-assertion.xsd#consistency-assertion-formula" xlink:type="simple"/>
  <link:arcroleRef arcroleURI="http://xbrl.org/arcrole/2008/consistency-assertion-parameter" xlink:href="../../core_schemas/consistency-assertion.xsd#consistency-assertion-parameter" xlink:type="simple"/>
  <generic:link xlink:type="extended"
    xlink:role="http://www.xbrl.org/2003/role/link">

                <!--  Tests the consistency of the fact RiskedCapital calculated as
                                        RiskedCapital = CapitalInvested * RiskFactor, 
                                        given a proportional acceptance ratio determined by a parameter  -->
                                        
    <ca:consistencyAssertion xlink:type="resource" xlink:label="assertion"
        id="assertion"
        strict="false" proportionalAcceptanceRadius="$v:ToleranceRatio"/>

                <!-- Assertion variables -->
    <variable:parameter xlink:type="resource" xlink:label="toleranceRatio" 
    name="v:ToleranceRatio" select="0.05"/>

    <!--  Arcs from the assertion to the variables it depends on -->
    <variable:variableArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/consistency-assertion-parameter" 
      xlink:from="assertion" xlink:to="toleranceRatio" order="1.0"
      name="v:ToleranceRatio"/>

                <!-- Formula definition -->
    <formula:formula xlink:type="resource" xlink:label="formula"
        aspectModel="dimensional" implicitFiltering="true"
      value="$v:CapitalInvested * $v:RiskFactor" source="formula:uncovered">
      <formula:aspects>
        <formula:concept>
                <formula:qname>concept:RiskedCapital</formula:qname>
        </formula:concept>
      </formula:aspects>
    </formula:formula>

    <!--  Arc from the assertion to the formula -->
    <generic:arc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/consistency-assertion-formula" 
      xlink:from="assertion" xlink:to="formula" order="1.0"/>

    <!-- Formula variables -->
    <variable:factVariable xlink:type="resource" xlink:label="capitalInvested"
         bindAsSequence="false"/>
    <variable:factVariable xlink:type="resource" xlink:label="riskFactor"
         bindAsSequence="false"/>

    <!--  Arcs from the formula to the variables it depends on -->
    <variable:variableArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/variable-set" 
      xlink:from="formula" xlink:to="capitalInvested" order="1.0"
      name="v:CapitalInvested"/>
    <variable:variableArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/variable-set" 
      xlink:from="formula" xlink:to="riskFactor" order="2.0"
      name="v:RiskFactor"/>

                <!--  Concept filters -->
                <cf:conceptName xlink:type="resource" xlink:label="capitalInvestedFilter">
                        <cf:concept>
                                <cf:qname>
                                        concept:CapitalInvested
                                </cf:qname>
                        </cf:concept>
                </cf:conceptName>               
                <cf:conceptName xlink:type="resource" xlink:label="riskFactorFilter">
                        <cf:concept>
                                <cf:qname>
                                        concept:RiskFactor
                                </cf:qname>
                        </cf:concept>
                </cf:conceptName>               

                <!--  Pure unit filter -->
                <uf:singleMeasure xlink:type="resource" xlink:label="pureUnitFilter">
                        <uf:measure>
                                <uf:qname>
                                        xbrli:pure
                                </uf:qname>
                        </uf:measure>
                </uf:singleMeasure>
                
                <!--  Arcs from variables to filters -->
    <variable:variableFilterArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/variable-filter"
        xlink:from="capitalInvested" xlink:to="capitalInvestedFilter" 
        complement="false" cover="true" order="1.0"/>
    <variable:variableFilterArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/variable-filter"
        xlink:from="riskFactor" xlink:to="riskFactorFilter" 
        complement="false" cover="true" order="1.0"/>
    <variable:variableFilterArc xlink:type="arc" xlink:arcrole="http://xbrl.org/arcrole/2008/variable-filter"
        xlink:from="riskFactor" xlink:to="pureUnitFilter" 
        complement="false" cover="true" order="2.0"/>
        
  </generic:link>

</link:linkbase>
